home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
programr
/
vbasic
/
loanapp.exe
/
LOANF3.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
15KB
|
468 lines
VERSION 2.00
Begin Form Form3
BackColor = &H00808080&
ClientHeight = 5040
ClientLeft = 255
ClientTop = 1725
ClientWidth = 8880
ControlBox = 0 'False
Height = 5445
Left = 195
LinkMode = 1 'Source
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5040
ScaleWidth = 8880
Top = 1380
Width = 9000
Begin CommandButton Command3
Caption = "Cancel"
Height = 300
Left = 4995
TabIndex = 19
Top = 4470
Width = 3000
End
Begin CommandButton Command1
Caption = "OK"
Height = 300
Left = 885
TabIndex = 18
Top = 4455
Width = 3000
End
Begin PictureBox Picture7
Height = 1185
Left = 45
ScaleHeight = 1155
ScaleWidth = 8760
TabIndex = 20
Top = 3000
Width = 8790
Begin CheckBox Check1
Caption = "ARM:"
Height = 240
Index = 4
Left = 3120
TabIndex = 25
Top = 795
Width = 795
End
Begin CheckBox Check1
Caption = "GPM"
Height = 240
Index = 2
Left = 1755
TabIndex = 23
Top = 765
Width = 1080
End
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 8
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 3945
TabIndex = 27
Top = 615
Version = 268435458
Width = 4770
End
Begin CheckBox Check1
Caption = "Other:"
Height = 240
Index = 3
Left = 3120
TabIndex = 24
Top = 225
Width = 840
End
Begin CheckBox Check1
Caption = "Fixed Rate"
Height = 240
Index = 1
Left = 1755
TabIndex = 22
Top = 225
Width = 1275
End
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 7
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 3945
TabIndex = 26
Top = 45
Version = 268435458
Width = 4770
End
Begin Label Label7
Caption = "Amortizaties Type:"
Height = 240
Left = 45
TabIndex = 21
Top = 45
Width = 1665
End
End
Begin PictureBox Picture2
Height = 900
Left = 6945
ScaleHeight = 870
ScaleWidth = 1860
TabIndex = 1
Top = 2010
Width = 1890
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 6
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 17
Top = 330
Version = 268435458
Width = 1770
End
Begin Label Label6
Caption = "Number of Months:"
Height = 210
Left = 45
TabIndex = 16
Top = 45
Width = 1665
End
End
Begin PictureBox Picture3
Height = 900
Left = 4995
ScaleHeight = 870
ScaleWidth = 1845
TabIndex = 2
Top = 2010
Width = 1875
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 5
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 15
Top = 330
Version = 268435458
Width = 1485
End
Begin Label Label8
Caption = "%"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Left = 1575
TabIndex = 28
Top = 540
Width = 255
End
Begin Label Label5
Caption = "Interent Rate:"
Height = 225
Left = 45
TabIndex = 14
Top = 45
Width = 1245
End
End
Begin PictureBox Picture4
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 3810
TabIndex = 3
Top = 2010
Width = 3840
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 4
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 330
TabIndex = 13
Top = 345
Version = 268435458
Width = 3315
End
Begin Label Label9
Caption = "$"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 150
TabIndex = 29
Top = 480
Width = 180
End
Begin Label Label4
Caption = "Amount of Loan:"
Height = 210
Left = 45
TabIndex = 12
Top = 45
Width = 1950
End
End
Begin PictureBox Picture5
Height = 900
Left = 4995
ScaleHeight = 870
ScaleWidth = 3810
TabIndex = 4
Top = 1035
Width = 3840
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 11
Top = 330
Version = 268435458
Width = 3735
End
Begin Label Label3
Caption = "Lender Case Number:"
Height = 225
Left = 30
TabIndex = 10
Top = 45
Width = 1920
End
End
Begin PictureBox Picture6
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 3810
TabIndex = 5
Top = 1035
Width = 3840
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 30
TabIndex = 9
Top = 330
Version = 268435458
Width = 3750
End
Begin Label Label2
Caption = "Agency Case Number:"
Height = 225
Left = 45
TabIndex = 8
Top = 45
Width = 1950
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 0
Top = 60
Width = 8790
Begin VBedit BEditF3
CellHeight = 480
CellWidth = 360
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 7
Top = 360
Version = 268435458
Width = 8670
End
Begin Label Label1
Caption = "Morgtage Applied for:"
Height = 255
Left = 45
TabIndex = 6
Top = 45
Width = 1875
End
End
End
Sub Check1_Click (Index As Integer)
If Form3.Visible = True Then
If Check1(Index).Value = 1 Then
For i = 1 To 4
If Index <> i Then
Check1(i).Value = 0
End If
Next i
ElseIf ((Index = 3) Or (Index = 4)) Then
Form3.BEditF3(Index + 4).Text = ""
MainRec.A.A7 = ""
End If
End If
End Sub
Sub Command1_Click ()
MainRec.A.A1 = Form3.BEditF3(1).Text
MainRec.A.A2 = Form3.BEditF3(2).Text
MainRec.A.A3 = Form3.BEditF3(3).Text
MainRec.A.A4 = Form3.BEditF3(4).Text
MainRec.A.A5 = Form3.BEditF3(5).Text
MainRec.A.A6 = Form3.BEditF3(6).Text
For i = 1 To 4
If Form3.Check1(i).Value = 1 Then
MainRec.A.AC1 = i
End If
Next i
If (MainRec.A.AC1 = 3) Or (MainRec.A.AC1 = 4) Then
MainRec.A.A7 = Form3.BEditF3(MainRec.A.AC1 + 4).Text
End If
UpdateLabelA
Form3.Hide
End Sub
Sub Command3_Click ()
Form3.Hide
End Sub
Sub Form_Load ()
Form3.Left = 300
Form3.Top = (Screen.Height - Form3.Height) / 2
End Sub